home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / advn4d44 / init.fr_ / init.fr
Text File  |  1997-02-11  |  4KB  |  148 lines
  1. VERSION 4.00
  2. Begin VB.Form frmInit 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Initialization"
  5.    ClientHeight    =   2904
  6.    ClientLeft      =   7776
  7.    ClientTop       =   240
  8.    ClientWidth     =   2652
  9.    ControlBox      =   0   'False
  10.    Height          =   3288
  11.    Left            =   7728
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MDIChild        =   -1  'True
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2904
  17.    ScaleWidth      =   2652
  18.    ShowInTaskbar   =   0   'False
  19.    Top             =   -96
  20.    Width           =   2748
  21.    Begin VB.CommandButton pbAbort 
  22.       Caption         =   "Abort"
  23.       Height          =   372
  24.       Left            =   1440
  25.       TabIndex        =   8
  26.       Top             =   2040
  27.       Width           =   732
  28.    End
  29.    Begin VB.CommandButton pbOK 
  30.       Caption         =   "OK"
  31.       Height          =   372
  32.       Left            =   360
  33.       TabIndex        =   7
  34.       Top             =   2040
  35.       Width           =   732
  36.    End
  37.    Begin VB.CheckBox chkEuclidean 
  38.       Caption         =   "Euclidean space"
  39.       Height          =   192
  40.       Left            =   120
  41.       TabIndex        =   6
  42.       Top             =   1560
  43.       Value           =   1  'Checked
  44.       Width           =   1452
  45.    End
  46.    Begin VB.Frame Frame1 
  47.       Caption         =   "Number of Dimensions"
  48.       Height          =   732
  49.       Left            =   120
  50.       TabIndex        =   2
  51.       Top             =   600
  52.       Width           =   2292
  53.       Begin VB.OptionButton optNumDimensions3 
  54.          Caption         =   "4"
  55.          Height          =   192
  56.          Index           =   2
  57.          Left            =   1560
  58.          TabIndex        =   5
  59.          Top             =   360
  60.          Value           =   -1  'True
  61.          Width           =   372
  62.       End
  63.       Begin VB.OptionButton optNumDimensions2 
  64.          Caption         =   "3"
  65.          Height          =   192
  66.          Index           =   1
  67.          Left            =   960
  68.          TabIndex        =   4
  69.          Top             =   360
  70.          Width           =   492
  71.       End
  72.       Begin VB.OptionButton optNumDimensions1 
  73.          Caption         =   "2"
  74.          Height          =   192
  75.          Index           =   0
  76.          Left            =   360
  77.          TabIndex        =   3
  78.          Top             =   360
  79.          Width           =   492
  80.       End
  81.    End
  82.    Begin VB.TextBox txtGameNumber 
  83.       Height          =   288
  84.       Left            =   1440
  85.       TabIndex        =   1
  86.       Text            =   "1"
  87.       Top             =   120
  88.       Width           =   972
  89.    End
  90.    Begin VB.Label Label1 
  91.       Alignment       =   1  'Right Justify
  92.       Caption         =   "Game number"
  93.       Height          =   252
  94.       Left            =   120
  95.       TabIndex        =   0
  96.       Top             =   120
  97.       Width           =   1092
  98.    End
  99. End
  100. Attribute VB_Name = "frmInit"
  101. Attribute VB_Creatable = False
  102. Attribute VB_Exposed = False
  103.  
  104. Option Explicit
  105.  
  106. Private Sub Check1_Click()
  107.  
  108. End Sub
  109.  
  110. Private Sub chkEuclidean_Click()
  111.   frmGame.bEuclidean = Not frmGame.bEuclidean
  112. End Sub
  113.  
  114.  
  115. Private Sub Form_Load()
  116.   frmGame.nGame = 1
  117.   frmGame.nDimensions = 4
  118.   frmGame.bEuclidean = True
  119. End Sub
  120.  
  121. Private Sub optNumDimensions1_Click(Index As Integer)
  122.   frmGame.nDimensions = 2
  123. End Sub
  124.  
  125. Private Sub optNumDimensions2_Click(Index As Integer)
  126.   frmGame.nDimensions = 3
  127. End Sub
  128.  
  129.  
  130. Private Sub optNumDimensions3_Click(Index As Integer)
  131.   frmGame.nDimensions = 4
  132. End Sub
  133.  
  134.  
  135. Private Sub pbAbort_Click()
  136.   End
  137. End Sub
  138.  
  139. Private Sub pbOK_Click()
  140.   Dim bValue As Boolean
  141.   
  142.   frmInit.Visible = False
  143.   frmGame.nGame = Val(txtGameNumber.Text)
  144.   frmGame.Visible = True
  145. End Sub
  146.  
  147.  
  148.